home *** CD-ROM | disk | FTP | other *** search
/ Private Casting / Casting One.mdf / Docs / Video.dir / 00011.ls < prev    next >
Encoding:
Text File  |  1998-02-21  |  1.2 KB  |  43 lines
  1. on mouseEnter
  2.   cursor([cast "curs", cast "mask"])
  3.   puppetSprite(the currentSpriteNum, 1)
  4.   set the blend of sprite the currentSpriteNum to 50
  5. end
  6.  
  7. on mouseLeave
  8.   cursor(-1)
  9.   set the blend of sprite the currentSpriteNum to 100
  10. end
  11.  
  12. on mouseUp
  13.   cursor(-1)
  14.   set the blend of sprite the currentSpriteNum to 100
  15.   case the clickOn of
  16.     3:
  17.       set the movieRate of sprite 8 to 0
  18.       go(1, "photobook")
  19.     4:
  20.       set the movieRate of sprite 8 to 0
  21.       set the movieTime of sprite 8 to 0
  22.       set the castNum of sprite 6 to the number of member "play"
  23.     5:
  24.       set the movieRate of sprite 8 to -2
  25.       set the castNum of sprite 6 to the number of member "pause"
  26.     6:
  27.       if the movieRate of sprite 8 = 0 then
  28.         set the movieRate of sprite 8 to 1
  29.         set the castNum of sprite 6 to the number of member "pause"
  30.       else
  31.         set the movieRate of sprite 8 to 0
  32.         set the castNum of sprite 6 to the number of member "play"
  33.       end if
  34.     7:
  35.       set the castNum of sprite 6 to the number of member "pause"
  36.       set the movieRate of sprite 8 to 2
  37.     9:
  38.       set the movieRate of sprite 8 to 0
  39.       go(1, "success")
  40.       puppetSound(0)
  41.   end case
  42. end
  43.